home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 4671-5.790 / dmg-4695 / giveway.17 / source / vmscr.bas (.txt) < prev   
Atari STOS Basic  |  1987-04-21  |  12KB  |  117 lines
  1. 10 REM vertical screen scroll
  2. 100 FOR
  3. 110 REM init game map
  4. 120 RESTORE
  5. 130 READ
  6. 140 READ
  7. 150 FOR
  8. 160 REM get size of sprites
  9. 170 READ
  10. 180 VARNAME
  11. 190 FOR
  12. 20 REM using a mapping techique use your joystick to scroll
  13. 200 FOR
  14. 210 READ
  15. 220 NEXT
  16. 230 IF
  17. 23420 REM set up screen and colours
  18. 23430 VARNAME
  19. 23440 FOR
  20. 23450 RETURN
  21. 240 NEXT
  22. 25 DIM
  23. 250 REM main scrolling loop
  24. 260 VARNAME
  25. 265 REM main loop
  26. 270 REPEAT
  27. 280 REM scroll screen up
  28. 290 IF
  29. 30 MODE
  30. 300 IF
  31. 310 UNTIL
  32. 315 DEFAULT
  33. 316 REM scroll screen down
  34. 32 LOCATE
  35. 320 VARNAME
  36. 330 SCROLL
  37. 340 FOR
  38. 345 IF
  39. 35 RESERVE
  40. 350 NEXT
  41. 355 WAIT VBL
  42. 36 GOSUB
  43. 360 VARNAME
  44. 370 REM scroll 2 : cls physic,0,0,0 to 320,16
  45. 375 SCROLL
  46. 380 FOR
  47. 385 IF
  48. 390 NEXT
  49. 395 WAIT VBL
  50. 40 GOSUB
  51. 400 DEFAULT
  52. 410 STOP
  53. 420 REM enter sprite images into SEG$ array
  54. 430 CLS
  55. 440 FOR
  56. 450 CLS
  57. 460 SPRITE
  58. 470 VARNAME
  59. 480 SPRITE
  60. 490 RETURN
  61. 495 REM new map display code
  62. 496 REM so it uses SCREEN$ for extra SPEEEEEEDDDD!!!
  63. 5 REM Checked GFF א™
  64. 50 VARNAME
  65. 500 RESTORE
  66. 505 IF
  67. 510 RESTORE
  68. 520 FOR
  69. 530 FOR
  70. 540 READ
  71. 550 IF
  72. 560 NEXT
  73. 60 DEF
  74. 600 DATA
  75. 610 DATA
  76. 620 DATA
  77. 630 DATA
  78. 640 DATA
  79. 650 DATA
  80. 660 DATA
  81. 670 DATA
  82. 680 DATA
  83. 690 DATA
  84. 70 DEF
  85. 700 DATA
  86. 710 DATA
  87. 720 DATA
  88. 730 DATA
  89. 740 DATA
  90. 750 DATA
  91. 760 DATA
  92. 770 DATA
  93. 780 DATA
  94. 790 DATA
  95. 80 DIM
  96. 800 DATA
  97. 810 DATA
  98. 820 DATA
  99. 830 DATA
  100. 840 DATA
  101. 850 DATA
  102. 860 DATA
  103. 870 DATA
  104. 880 DATA
  105. 890 DATA
  106. 90 REM load slots
  107. 900 DATA
  108. 910 DATA
  109. 920 DATA
  110. 930 DATA
  111. 940 DATA
  112. 950 DATA
  113. 960 DATA
  114. 970 DATA
  115. 980 DATA
  116. 990 DATA
  117.